home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / WordWorth3 / WwTools / Snoop < prev    next >
Text File  |  1994-10-20  |  3KB  |  91 lines
  1. failat 21
  2.  
  3. echo "*nDigita System Report v1.1"
  4. echo "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"
  5. echo "This utility creates a file containing information"
  6. echo "that will help Digita Technical Support track down"
  7. echo "any problems you may be having.*n"
  8. echo "Run this program and send a printout, with covering"
  9. echo "letter, to Digita.*n*n"
  10.  
  11. ask "Do you wish to Snoop your system (y/n) ? "
  12. IF WARN
  13.     ask "*n*nWould you like to generate the*nSnoop report to your Printer (y/n) ? "
  14.     IF WARN
  15.       setenv ReportOutput "RAM:DigitaReport"
  16.       echo "*n*nGenerating Report. Please wait..."
  17.     ELSE
  18.       setenv ReportOutput *
  19.     ENDIF
  20.  
  21.     echo "*nDigita System Report v1.0" >$ReportOutput
  22.     echo "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯" >>$ReportOutput
  23.  
  24.     echo "*n" >>$ReportOutput
  25.     version >>$ReportOutput
  26.  
  27.     echo "*n*n############ Memory:" >>$ReportOutput
  28.     avail >>$ReportOutput
  29.  
  30.     echo "*n*n############ Memory Fragmentation:" >>$ReportOutput
  31.     frags >>$ReportOutput
  32.  
  33.     echo "*n*n############ Configuration:" >>$ReportOutput
  34.     cpu >>$ReportOutput
  35.  
  36.     echo "*n*n############ Libraries Loaded:" >>$ReportOutput
  37.     liblist >>$ReportOutput
  38.  
  39.     echo "*n*n############ Libraries on disk:" >>$ReportOutput
  40.     list LIBS: NODATES >>$ReportOutput
  41.  
  42.     echo "*n*n############ Assigns:" >>$ReportOutput
  43.     assign >>$ReportOutput
  44.  
  45.     echo "*n*n############ Volumes:" >>$ReportOutput
  46.     info >>$ReportOutput
  47.  
  48.     echo "*n*n############ WwFonts ENV" >>$ReportOutput
  49.     getenv Wordworth/WwFonts >ENV:WwFontsDir
  50.   echo "WwFontsDir points to: "$WwFontsDir >>$ReportOutput
  51.  
  52.   cd >ENV:SnoopCD   ;get current dir
  53.   echo "*n*n############ Wordworth 3 drawer contents" >>$ReportOutput
  54.   cd $WwFontsDir    ;go to WwFonts drawer
  55.   cd /              ;go back one to Wordworth drawer
  56.   list PAT="~(#?.info)" NODATES ALL >>$ReportOutput
  57.   cd $SnoopCD       ;restore current dir
  58.  
  59.     echo "*n*n############ FONTS Contents:" >>$ReportOutput
  60.     dir FONTS:~(#?.info) >>$ReportOutput
  61.  
  62.     echo "*n*n############ ENV Contents:" >>$ReportOutput
  63.     dir ENV:~(#?.info) ALL >>$ReportOutput
  64.  
  65.     echo "*n*n############ ENVARC Contents:" >>$ReportOutput
  66.     dir ENVARC:~(#?.info) ALL >>$ReportOutput
  67.  
  68.     echo "*n*n############ SYS Contents:" >>$ReportOutput
  69.     dir SYS:~(#?.info) >>$ReportOutput
  70.  
  71.     echo "*n*n############ Startup-sequence:" >>$ReportOutput
  72.     type s:startup-sequence >>$ReportOutput
  73.  
  74.     echo "*n*n############ User-startup:" >>$ReportOutput
  75.     type s:user-startup >>$ReportOutput
  76.  
  77.     echo "*n*n*nEnd of Digita System Report*n*n" >>$ReportOutput
  78.     IF $ReportOutput EQ *
  79.       ask "Please press RETURN to finish."
  80.     ELSE
  81.       echo "*n*nPrinting Report. Please wait..."
  82.       type RAM:DigitaReport >PRT:
  83.       delete >NIL: RAM:DigitaReport
  84.       delete >NIL: ENV:WwFontsDir
  85.       delete >NIL: ENV:ReportOutput
  86.     ENDIF
  87. ELSE
  88.   echo "*n*nUser Aborted..."
  89.   ask "*nPlease press RETURN to finish."
  90. ENDIF
  91.